perm filename SEVEN[0,BGB] blob
sn#109798 filedate 1974-07-11 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 TITLE SEVEN
C00003 ENDMK
C⊗;
TITLE SEVEN
REV1: 0
TRCE 101↔TRCE 101↔TRCE 101
TRCE 42↔TRCE 42↔TRCE 42
TRCE 24↔TRCE 24↔TRCE 24
JRST @REV1
REV2: 0
IMUL [10004002001]
AND [210210210010]
IDIVI 377
MOVE 1
ANDI 177
JRST @REV2
SA: MOVEI 10,177
MOVE 0,10↔JSR REV1↔MOVEM 0,7
MOVE 0,10↔JSR REV2
CAME 0,7
FUCK: JFCL
SOJGE 10,SA+1
EOL: HALT
END SA